SuperHack/SuperHack CD.bin/CODING/VBASIC/TIME2WIN.ZIP/FORM2.FRM

Visual Basic Form | 1996-08-25 | 5.9 KB | 186 lines

VERSION 2.00
Begin Form frmLng
   BackColor       =   &H00C0C0C0&
   Caption         =   "Read Control Language"
   ClientHeight    =   3225
   ClientLeft      =   1230
   ClientTop       =   3435
   ClientWidth     =   6240
   Height          =   3855
   Left            =   1200
   LinkTopic       =   "Form2"
   ScaleHeight     =   3225
   ScaleWidth      =   6240
   Top             =   2835
   Width           =   6300
   Begin OptionButton Option1
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Dutch"
      Height          =   210
      Index           =   2
      Left            =   3960
      TabIndex        =   3
      Top             =   540
      Width           =   1635
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Frame1"
      Height          =   735
      Left            =   180
      TabIndex        =   7
      Top             =   1890
      Width           =   5955
      Begin Label Label2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Label2"
         Height          =   195
         Left            =   180
         TabIndex        =   8
         Top             =   360
         Width           =   5685
      End
   End
   Begin CheckBox Check1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Check1"
      Height          =   225
      Left            =   180
      TabIndex        =   6
      Top             =   1530
      Width           =   5955
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   180
      TabIndex        =   5
      Text            =   "TIME TO WIN"
      Top             =   1170
      Width           =   5955
   End
   Begin OptionButton Option1
      BackColor       =   &H00C0C0C0&
      Caption         =   "&French"
      Height          =   210
      Index           =   1
      Left            =   2070
      TabIndex        =   2
      Top             =   540
      Width           =   1635
   End
   Begin CommandButton Command2
      Caption         =   "&Read"
      Height          =   375
      Left            =   180
      TabIndex        =   9
      Top             =   2700
      Width           =   2265
   End
   Begin CommandButton Command1
      Caption         =   "&Close"
      Height          =   375
      Left            =   5220
      TabIndex        =   10
      Top             =   2700
      Width           =   915
   End
   Begin OptionButton Option1
      BackColor       =   &H00C0C0C0&
      Caption         =   "&English"
      Height          =   210
      Index           =   0
      Left            =   180
      TabIndex        =   1
      Top             =   540
      Value           =   -1  'True
      Width           =   1635
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "&The name of this product is :"
      Height          =   225
      Index           =   1
      Left            =   180
      TabIndex        =   4
      Top             =   900
      Width           =   5955
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "&Select the appropriate language :"
      Height          =   225
      Index           =   0
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   5955
   End
   Begin Menu mnu_1
      Caption         =   "Menu &1"
      Begin Menu mnu_11
         Caption         =   "menu 1.1"
         Begin Menu mnu_111
            Caption         =   "menu 1.1.1"
         End
         Begin Menu mnu_112
            Caption         =   "menu 1.1.2"
            Begin Menu mnu_1121
               Caption         =   "menu 1.1.2.1"
            End
         End
      End
      Begin Menu mnu_12
         Caption         =   "menu 1.2"
         Begin Menu mnu_121
            Caption         =   "menu 1.2.1"
         End
         Begin Menu mnu_122
            Caption         =   "menu 1.2.2"
         End
         Begin Menu mnu_123
            Caption         =   "-"
         End
         Begin Menu mnu_124
            Caption         =   "menu 1.2.4"
            Checked         =   -1  'True
         End
      End
   End
   Begin Menu mnu_2
      Caption         =   "Menu &2"
      Enabled         =   0   'False
   End
   Begin Menu mnu_3
      Caption         =   "Menu &3"
      Begin Menu mnu_31
         Caption         =   "menu 3.1"
         Enabled         =   0   'False
      End
      Begin Menu mnu_32
         Caption         =   "menu 3.2"
      End
   End
Option Explicit
Dim status        As Integer
Sub Command1_Click ()
   Unload frmLng
End Sub
Sub Command2_Click ()
   If (Option1(0).Value = True) Then
      status = cReadCtlLanguage(mnu_1, 255, frmT2W.Tag + ".TUK")
      Label2.Caption = cGetLongDay(LNG_ENGLISH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
   End If
   If (Option1(1).Value = True) Then
      status = cReadCtlLanguage(mnu_1, 255, frmT2W.Tag + ".TFR")
      Label2.Caption = cGetLongDay(LNG_FRENCH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
   End If
   If (Option1(2).Value = True) Then
      status = cReadCtlLanguage(mnu_1, 255, frmT2W.Tag + ".TNL")
      Label2.Caption = cGetLongDay(LNG_DUTCH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_FRENCH, Month(Int(Now))) & " " & Year(Int(Now))
   End If
End Sub
Sub Form_Load ()
   status = cReadCtlLanguage(mnu_1, 255, frmT2W.Tag + ".TUK")
   Label2.Caption = cGetLongDay(LNG_ENGLISH, Weekday(Int(Now))) & " " & Day(Int(Now)) & " " & cGetLongMonth(LNG_ENGLISH, Month(Int(Now))) & " " & Year(Int(Now))
End Sub